home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / PowerMacOberon 1.2 / System / Kepler8.Sym < prev    next >
Encoding:
Text File  |  1994-09-15  |  2.3 KB  |  7 lines  |  [TEXT/.Ob4]
  1. ˜‹‚À∂Kepler8AttrRectÜõ¬∂KeplerGraphs |ObjectDesc
  2. Object¸{selfÇ„„‡KeplerPortsPort˚{P Draw
  3. ¸{selfıñ≥Filesreseof tRider˚{R Read
  4. ¸{self˚{R WritenofptsStar
  5. pConstellationnext tConsDesc
  6. ¸{self˚{R Read
  7. ¸{selfState
  8. ¸{self˚{R     WritetexturelineWidthshadowshadowWidth corner $|AttrRectDesc
  9. ¸{self˚{f Draw
  10. ¸{self˚{r Read
  11. ¸{self˚{r WriteCircleIntersectxyrefcntsel next xStarDesc
  12. ¸{self˚{P Draw
  13. ¸{self˚{R Read
  14. ¸{self˚{R Writec lPlanetDesc
  15. Planet¸{self Calc
  16. ¸{self˚{P Draw
  17. ¸{self˚{R Read
  18. ¸{self˚{R Write xCircleIntersectDesc
  19. ¸{self CalcEllipIntersect t   EllipIntersectDesc
  20. ¸{self  Calc!FilledCircletexture p"""FilledCircleDesc
  21. !¸{self˚{f "Draw
  22. !¸{self˚{r "Read
  23. !¸{self˚{r "Write#RectIntersect l$$$RectIntersectDesc
  24. #¸{self $Calc
  25.      NewAttrRect
  26. 
  27. NewCircleIntersect
  28.  NewEllipseIntersect
  29.  NewFilledCircle
  30. 
  31. NewRectIntersectܵàflDisplay%Frame%dsc%nextX
  32. Y WH
  33. %¸{f x&&FrameMsg&˚{msg     'Handler'handle t((FrameDescx0y0scale ext ($|)) )PortDesc
  34. ¸{P˚{x)CX
  35. ¸{P˚{y)CY
  36. ¸{P˚{X)Cx
  37. ¸{P˚{Y)Cy
  38. ¸{P˚{x˙{y˘{r¯{col˜{mode )DrawCircle
  39. ¸{P˚{x˙{y˘{a¯{b˜{colˆ{mode )DrawEllipse
  40. ¸{P˚{x1˙{y1˘{x2¯{y2˜{colˆ{mode )DrawLine
  41. ¸{P˚{x˙{y˘{w¯{h˜{colˆ{mode )DrawRect
  42. ¸{P˚{x˙{y *˘{sêØâflFonts+Font+˜{fontˆ{colı{mode )    DrawString
  43. ¸{P˚{x˙{y˘{r¯{col˜{patˆ{mode )    
  44. FillCircle
  45. ¸{P˚{x1˙{y1˘{x2¯{y2˜{x3ˆ{y3ı{x48y4<col¿patƒmode )
  46. FillQuad
  47. ¸{P˚{x˙{y˘{w¯{h˜{colˆ{patı{mode ) FillRect) !"#$%(
  48.  ,Name,name height"minX$maxX&minY(maxY-Font-,raster0 4|..FontDesc+. |//Bytes-/